$ perl -Mstrict -Mwarnings -E '
my $interface = q{bge12};
$interface =~ s{(?=\d+$)}{:};
say $interface;'
bge:12
$