#!/usr/bin/perl -wl
$_="faufakfacfadfas";      # some arbitrary string.
$not=q=q+q-q-+=;           # q equals q plus q minus q, right?
s$d|u|c|k|s\$$\$not$geese; # seems fowl.
s a.\ay?.+aprint uc $&ae;  # <ducking>...(sic)