system( qw(perl -c -e), $my_text);