$japh="Just Another Perl Hacker";
$a='s/.*/$a/';
$japh=~s/.*/$a/;
print $japh;