Select Code to Download

my @tokens = split '', $ARGV[0];

...
}

print "\n$output\n";

$format =~ s/(%m)/&message()/;