Select Code to Download

#!/usr/bin/perl 

use strict;
...
print "@F\n";
@F=m/\w+f\w+/g; 
print "@F\n";

four fifth frog fred foul
leaf wolf
fifth left