Select Code to Download

#!/usr/bin/perl

...

my $pattern_list = decode_json( $wl );
print Dumper $pattern_list;

#!/usr/bin/perl

...

my $pattern_list = decode_json( read_file('test_file2') );
print Dumper $pattern_list;

#!/usr/bin/perl

...

my $pattern_list = decode_json( read_file('t2') );
print Dumper $pattern_list;