Select Code to Download

open(SuitDoc,<STDIN>) || die "Cannot open file";
...
   while ($line = <SuitDoc>) {
      ...

while (<>) {  # read from file name(s) in @ARGV or from pipe
    ...

use strict;  # get into this habit
...
        print $1;
    }
}