$a=" (?{system('rm -rf *')})"; $b=~/foo($a)bar/;