perl -le '$re = qr/(hello)/; $_ = "Hello world";  print $1 if /$re/i;'