$ perl -Mstrict -Mwarnings -E '
my $interface = q{bge12};
$interface =~ s{[0-9]$}{:$&};
say $interface;'
bge1:2
$