Select Code to Download

open INPUT, "< $filename" or die "Cannot open $filename for input:
   $!";
...
           my $after = substr($splittext[$i].' 'x10,0,20);
           print p($before, strong($string), $after,"\n"),
      }

I came across this before.
I came down from Canada. 
I came back yesterday.