Select Code to Download

#!/usr/bin/perl -w

...
      map { s/\s//g; $_ }
      ( unpack 'a6 a5 a1 a4 a14 a8 a8 a8', $_[0] )[ 1, 3, 5, 6, 7 ];
}