sub get_data{ my(@chunks_of_32); @chunks_of_32 = (); open(FILE, $file) or die; while(){ push @chunks_of_32, /\d{32}/og; } close(FILE); }