$currentSentence =~ s/[\ba\b|\ban\b|\bthe\b]//g;
if($currentSentence =~ /([\S]+) ([\S]+) <head>lines?<\/head>/) { if ($2 =~ /[\ba\b|\ban\b|\bthe\b]/) { print "$2\n"; print $DST "$1"; } else { print $DST "$2"; } }
In reply to Regular Expression, substitution by lobs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |