printf "alfa\nwhatever" | perl -CSDA -n -e '// or die "not possible! -- $_ --"; /alfa/;'

##</code><code>##

printf "alfa\nwhatever" | perl -CSDA -n -e '// or die "not possible! -- $_ --"; /al/;'

##</code><code>##

printf "alfa\nwhatever" | perl -CSDA -n -e '// or die "not possible! -- $_ --"; /a/;'