my ($number) = $data =~ /(\d+)/;