Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use constant T => q{UK Mobile - Vodafone [GBRVF] [MSRN]};
...
2 steps: a: 'UK Mobile - Vodafone [GBRVF'
2 steps: b: 'UK_Mobile_Vodafone_GBRVF'
1 step:     'UK_Mobile_Vodafone_GBRVF'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $dest = q{UK Mobile - Vodafone [GBRVF] [MSRN]};
...
 print qq{'$dest'};
"
'UK_Mobile_Vodafone_GBRVF'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $dest = q{UK Mobile - Vodafone [GBRVF] [MSRN]};
...
 print qq{'$dest'};
"
'UK_Mobile_Vodafone_GBRVF'

c:\@Work\Perl\monks>perl -wMstrict -le
"my $dest = q{UK Mobile - Vodafone [GBRVF] [MSRN]};
...
 print qq{'$dest'};
"
'UK_Mobile_Vodafone_GBRVF'