#!/usr/bin/perl -W

use strict;
use warnings;

print $_ = 'JUST ANOTHER WORDS SWAPPER'; ##origin

sub s_ {
	($_) = @_;
	$_ =~ s/([A-Z][A-Za-z]+) ([A-Z][A-Za-z]+) ([A-Z][A-Za-z]+) ([A-Z][A-Za-z]+)/$4 $3 $2 $1/;
	return $_;
	}
	
	&s_($_);
	print ' + '.$_.' + '; ##swapped
	print split(//,reverse $_); ##reversed