Select Code to Download

#!/usr/bin/perl -slw

...
my $str = 'abc def';
$str =~ /(\w+)\s+(\w+)/;
print "\(&mysub(<$1> <$2>))";