C:\>perl -E "my $num ='abcd23.777fghi'; my $intermediate; if ($num =~ /[a-d]+(\d+)[f-z]+/) {$intermediate = $1;} if ($intermediate =~ /[0-9]+/ ){ say $intermediate;}" (no output)