use Modern::Perl;
use strict;
use warnings;

my $dest = q{UK Mobile - Vodafone [GBRVF] [MSRN]};
$dest =~ s/(\W+)\s?(\[MSRN\])?/_/g;
say $dest;