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