$ perl
my $s="UK Mobile - Vodafone [GBRVF] [MSRN]";
$s=~tr/a-zA-Z/_/cs;
print "$s\n";
^D
UK_Mobile_Vodafone_GBRVF_MSRN_