#!/usr/bin/perl -w

use strict;
my($data,$word);
my(@letters);

open (FROM_CLIPBOARD, "pbpaste|");
open (TO_CLIPBOARD, "|pbcopy");

$data=<FROM_CLIPBOARD>;

if ($data){ $word=$data ;}
else { $word = "forwards"; }

@letters=split(//,$word);

print TO_CLIPBOARD reverse(@letters),"\n";

close (FROM_CLIPBOARD);
close (TO_CLIPBOARD);