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