#!/usr/bin/perl
#create the Storable file
use warnings;
use Storable;
use Data::Dumper;

my %sigs;
while (<DATA>){
    chomp;
   ($name,$value) = split(/\s+=\s+/,$_);
   next unless $value;
   $sigs{$name}= qr/$value/; 
}

store(\%sigs, 'z1.bin') or die "Can't store %a in z1.bin !\n";
print Dumper \%sigs;
exit;