% stephan@labaule (/home/stephan) %
% echo "okay stephan do test it!" | 
> perl -lne 'm!(steph|steph.?)!; print "seen: [$1]\n"'
seen: [steph]