Select Code to Download

$ cat fluffy.pl
use strict;
...
else {
    print "*** no match! ***\n";
}

$ perl fluffy.pl
Words:  2='is', 4='time', 1='Now'

use strict;
use warnings;
...
   "and pasted from a screen capture that I want to\n",
   "process.\n",
);

print "Chassis: <$details{'Chassis'}>\n";
print "Main Memory: <$details{'Main Memory'}>\n";