Select Code to Download

#! perl -slw
use strict;
...
print join ' ', map $matches{ $_ }, @$_ for @runs;

__DATA__

C:\test>665700
i want to get a little more sophisticated
i want the user to
to submit a mildly edited quote