Select Code to Download

use strict;

...
    shift @w while @w > 2;
    print "@w\n";
}

(/\s+(\w[\w ]{0,18}\w)\s*$/)[0] =~ /(\w+\s?\w+)$/g;