$TheFile =~ s/^'//mg;

##</code><code>##

while (my $TheLine = <>) {
   $TheLine =~ s/^'//;
   ...
}