my @flds = split m{\s+}, $line; my $memAddr = splice @flds, 0, 1; my $ascii = splice @flds, -1, 1; my $data = join q{}, @flds;