c:\@Work\Perl\monks>perl -wMstrict -le
"my $dest = q{UK Mobile - Vodafone [GBRVF] [MSRN]};
 $dest =~ s{ \W+ (\w+ \] \z)? }{ [ '', '_' ]->[! $1] }xmsge;
 print qq{'$dest'};
"
'UK_Mobile_Vodafone_GBRVF'