#!/usr/bin/perl -w

for (@ARGV) {
	$_ = "data/$_";
	s{([^\w:])}{"~".sprintf("%02X",ord($1))}eg;
	print "https://console.firebase.google.com/u/0/project/petminda-c8269/firestore/$_\n";
}