use strict;
use warnings;

my $str = "This is my program";
my @words = split ' ', $str;

$words[0] ^= $words[-1];
$words[-1] ^= $words[0];
$words[0] ^= $words[-1];
map {s/[^a-z ]//gi} @words;

print join ' ', @words;