perl -i\|perl -le 's//$^I -e"print q-Just another Perl hacker,-"/;open _;'