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