$ cat fluffy.pl
use strict;
use warnings;

my $t = "Now is the time for all good men to come to the aid";

if ($t =~ /^(\w+) (\w+) (\w+) (\w+) (\w+) (\w+)/) {
    print "Words:  2='$2', 4='$4', 1='$1'\n";
}
else {
    print "*** no match! ***\n";
}

##</code><code>##

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

##</code><code>##

use strict;
use warnings;
my @output = (
   "a few lines of data that I cut\n",
   "and pasted from a screen capture that I want to\n",
   "process.\n",
);

##</code><code>##

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