$ perl -le'
    $_ = "This is my program";
    print reverse /^(\S+)(.*?)(\S+)$/
'
program is my This