my $shop =  m/.{8}(\d{4})/ ? $1 : '0000';

##</code><code>##

my $shop = '0000';
$shop = $1 if $AResp =~ /.{8}(\d{4})/;