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

##</code><code>##

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