substr($str,0,4) = '';
$str =~ tr/://d;
$str =~ tr[/ ][__];