my $string = 'p23';
if($string =~ /[pP](\d+)/){
    print $1
}'