Select Code to Download

my @ops = (
   sub { s/^\s+\(Text [aA].* (\d+:\d+ .*$)/\.T1 "$1/g; },
...
      $op->();
   }
}