-MEMADDR-  ----HEX REPRESENTATION----       ---ASCII---  
0000       21 74 63 5f 37 5f 31 5f 36        !tc_7_1_6

##</code><code>##

my($memAddr, $data, $ascii);
open(DATAFILE $filename)
while(<DATAFILE>)
{
my $line = $_;
($memAddr, $data, $ascii) = split(/PATTERN/, $line);

##</code><code>##

 
$memAddr = 0000;
$data    = 2174635f375f315f36; # I think I need join() to get this format
$ascii   =  !tc_7_1_6