Is there a pattern between the different operations? If not, you might be stuck with

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

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

The reason it can't be simplified much is the $1 in the replace expression. Often, when reaching this point, it's time to look into a templating system. It's hard to tell if that's the case here since I'm only getting a very small picture of what you are doing.