use warnings;
use strict;

my $Interface = 'bge1';
$Interface =~ s/[0-9]$/:$&/;
print "$Interface\n";

__END__

bge:1