http://qs321.pair.com?node_id=11123429


in reply to Reading and unpacking on one line

#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11123425 use warnings; open FILNAM, '<', \<<END or die $!; 1234567890 abcdefghijkl END my $val = unpack 'H32', do { local $/ = \16; <FILNAM> }; print "$val\n";

UPDATED: changed input to an in memory file to make program completely self contained.