Help for this page
$currentSentence =~ s/[\ba\b|\ban\b|\bthe\b]//g;
if($currentSentence =~ /([\S]+) ([\S]+) <head>lines?<\/head>/) { ... print $DST "$2"; } }