use warnings 'all';
use strict;
use autodie;

    open my $input, '<', $ARGV[0];
   	 while (my $sentence = <$input>) {
  		  my $substring = '...pck.*?.c';
  		  $sentence =~ s{$substring}{}; 
	open my $out, '>', 'hex.txt';    
    print $out unpack 'H*', $sentence;
      }