my $line = $_; chomp $line;
    my @chunks = unpack "(A5)*", $line;