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