Select Code to Download

use strict;
use warnings;
...
print "@c\n";  #a34x5
my @d = $x =~ /(\w+)/g;
print "@d\n";  #a34x5