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