Select Code to Download

#!/usr/bin/perl
use strict;
...
  }
  close FILE;
}

$ time perl pm923771.pl
         Rate  swap  orig regex
...
real    2m38.179s
user    2m34.503s
sys     0m3.463s