open +0; $_=(<0>)[-1]; $_=~s/^.*?"(.+)".*$/$1/; @array= split (' ',$_); foreach $scalar (@array) { $scalar =~ s/(\w)(\w)/$2$1/g; $var .= " " . $scalar; } $var = reverse $var; print $var; __DATA__ ,erckha rlPe erthnoa stJu