use strict;
use warnings;

my $input = 'TAV.stock.opt.oldsym.txt';

{

  unless(open(INPUT,$input))                           
  {                                                    
      die "\nCannot open $input\n";  
  }

    <INPUT>;
	
	my @lines;
	
	while(my $line = <INPUT>)
	{
	
	  chomp $line;
     
	 if ($line =~ m/^A.TL5E00/)
	 
	 {
	 
	 $line =~ s/A.TL5E00/'+TL\E5C'/g;	
	 
	 }
	 
	} 	
	
    close INPUT;
	
	foreach my $line(@lines)
	{
	   print $line,"\n";
	}	
	
}