Select Code to Download

#!perl -w
use strict;
...
#    shift @words unless $words[0];
    print $words[0], ' ', $words[-1], $/;
}

    print "@words[0,-1]$/";