use strict;
use warnings;

my @data = ( '12345678', '123456789' );


foreach my $number ( @data ) {
    my $modified = $number;
    $modified =~ s/(\d{2})(?!$)/$1 /g;
    print "$modified#\n";
}