s//J-J-J-J>Just Another Perl Hacker/;
s/\b\w\b//g;
print;