Help for this page

Select Code to Download


  1. or download this
         if ($line =~ m/^A.TL5E00/)    
     {
     $line =~ s/A.TL5E00/+TL\E5C/g;      
     push @NewSym,$line;
     }
  2. or download this
         push @NewSym, $line if $line =~ s/^A.TL5E00/+TL\E5C/g;
  3. or download this
    $ perl -de 42

...

  DB<3> x @NewSym
0  '+TL5Cxxxx'