print map "$_\n", $x =~ /..?/g ; 12 34 5