Select Code to Download

my $regex = '^-'
      .('(\S+)\s+'x18)
      .'(.{40})'
      .'(.{40})'
      .'(.*)';

if (my @match = /$regex/o)
{
     # ... Use $match[0] through $match[20]
}