($num) = $num =~ /(\d+)/;
($str) = $str =~ /([A-Za-z0-9_-]+)/;