Help for this page
my $shop = m/.{8}(\d{4})/ ? $1 : '0000';
my $shop = '0000'; $shop = $1 if $AResp =~ /.{8}(\d{4})/;