use strict;
use warnings;

use Data::Dumper;

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

{

  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;	
    
	 push @NewSym,$line;
	 
	 }
	 
	} 	
	
    close INPUT;
	
	print Dumper(@NewSym);
	
}