my $foo = 'text';
my $oof = reverse $foo;
print $oof, $/;