[ ~/tmp ] $ perl -wle 'use strict; my $x = qr(s/.*/system("rm *")/e); print $x;'
(?-xism:s/.*/system("rm *")/e)
[ ~/tmp ] $