use strict;

$\ = $, = $; = "Just Another Perl Hacker";

@; = join /\n/ , split map { ucfirst } split;

print "Just Anothe\r Pe\rl Hacke\r";