$
^
|
/^[abcd]/
s/\b(\w+)\s+(\1)\b/$1/ig;
while(<>) { /^(from|subject):/i and print }
while(<>) { s/^(Subject:)\s*(.*)$/$1 Re: $2/i unless /re:/i; print; }
/\bin\b/
/\bin/
in\b/
while(<>) { s/^(.*Foo.*)$/print($1)/ie; }
e
perl
AaZzXzY
/x/
/^[a-z]*$/
/^\w*$/
\w