#!C:\Perl\bin\perl -w

use Getopt::Std;

$USAGE = <<USAGE;
 Usage: Absolute_Path\\file

    A script to adjust the request ID and replace it with something
    a little more descriptive
    
USAGE
;
 
# process command line
getopts('x') || die $USAGE;
 
# get parameters
$script = shift || die $USAGE;

# rename .tst file to a .txt file 
chomp ($script);
my $temp = $script;

    $temp =~ s/\.tsv$//;
    $new_script = join("", $temp, ".txt");
    rename ($script, $new_script);

open (DATA, "$new_script") ||
        die "Error: Couldn't open $new_script : $!\n";

while(<DATA>)
{
    push @Array, $_;   
}

foreach $_ (@Array)
{
    if ($_ =~ /^\[get/)
    {
        $_ = join("", $_, "TEST");
        print $_;
    }
}