# Assign STDIN to the default var
$_=<>;
# Assign X
$x="tp://";
# Print
print
# check if the default var DOES NOT has a colon
/^(?!.*:)/?
# if false return the default var
:$_
# if true check if it has a dot
/\./?
# if true return http://$_
"ht$x$_":
# if false return fttp://$_
"f$x$_"