print qq{$1\n} if ($lines[ $lineNo ] =~ m{\Q$Phrase\E\s*(\d*)});