fork download
copy 
  1. #!/usr/bin/perl -W
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. print $_ = 'JUST ANOTHER WORDS SWAPPER'; ##origin
  7.  
  8. sub s_ {
  9. 	($_) = @_;
  10. 	$_ =~ 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/;
  11. 	return $_;
  12. 	}
  13.  
  14. 	&s_($_);
  15. 	print ' + '.$_.' + '; ##swapped
  16. 	print split(//,reverse $_); ##reversed
  17.  
Success #stdin #stdout 0s 17760KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
JUST ANOTHER WORDS SWAPPER + SWAPPER WORDS ANOTHER JUST + TSUJ REHTONA SDROW REPPAWS
https://ideone.com/kKQSN1
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!