Select Code to Download

my $a = '12345';
while($a =~ s/(.)(.)//) {
    my ($b,$c) = ($1,$2);
    print "$b - $c\n";
}

while($a =~ /(.)(.)/g){
    my ($b,$c) = ($1,$2);
    print "$b - $c\n";
}