Select Code to Download

my $str = "perlmonks.org";

...
    print $1, ' ', $2, "\n";
}

my $f = substr($str, 0, 1);
my $l = substr($str, length($str)-1, 1);
print $f, ' ', $l;