Select Code to Download

my $line = "xx556xx";

my @list = $line =~ m/((??{ $a = substr( $line, pos($line), 1); $a ? q
+uotemeta($a) . '+' : '$' }))/g;

print "@list";