$japh="Just Another Perl Hacker";
$japh=~s/Just Another Perl Hacker/seek (DATA,$^Oeq"MSWin32"?42:41,0);sprintf <DATA>;/e
;print $japh;
__DATA__