chargrill hands buster_balz a set of <code></code> tags...

Yes, see perldoc perldata.

You might find you need to chomp() it first.

... and why write to a file which could fail and die, and not use qx//? (see perldoc perlop)

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
[download]