#!/usr/bin/perl
use strict;
$_= "Just Another Perl Hacker";
print /(.)n/;
s/^([^ ]*) *([^ ]*)/$3 $3/;
/\sH(.)(.)/;
print $2;/(.)\1.(.)/;
print $2,",";print $_;