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