#!perl -pl
$_=meo x/c/.woof&""x++$$_