echo print 'Some piece of nasty code'|perl -Tne"m[(.+)];$_=$1;eval;" Some piece of nasty code