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

while (<$fh>) {
   foreach my $op (@ops) {
      $op->();
   }
}