#!/local/bin/perl sub calc { local($in)=@_; local($cmd,$str); ($cmd,$str)=split(/:/,$in); if($cmd eq "u" ){ $str =~ tr/a-z/A-Z/; } elsif ( $cmd eq "l"){ $str =~ tr/A-Z/a-z/; } elsif ($cmd eq "r"){ $i=length($str); $out=""; while($i>=0){ $out .= substr($str,$i,1); $i--; } $str=$out; } return($str); } while(<>){ chomp; $out=calc($_); print "$out\n"; }