# this is my script to translate TAV stock options.

use strict;
use warnings;


open (OUTPUT, ">TAV.opt.rename.txt") || die "TAV.opt.rename.txt $!\n";

my @file = <TAV.stock.opt.oldsym.txt>;
# my $OldSym;
my $NewSym;


foreach my $f (@file)
{
	open (FILE, $f) || die "Could not open $f $!\n";
	my $line;

	while ($line = <FILE>)
	{
	 chomp ($line);
	 
	 if ($line =~ m/^A.TL5E00/)
	 {
	 
	 $line =~ s/A.TL5E00/'+TL\E5C'/g;	

	 }
	 
	elsif ($line =~ m/^A.TL5F00/) 
     
	 {
	 
	$line =~ s/A.TL5F00/'+TL\F5C'/g;	
	
	 }