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