$i = "Jim";
$j = "JjJjJjJj";
$k = "Boom Boom, out go the lights!";

$m = $i =~ /Jim/;    print "$m\n";
$m = $i =~ /J/;      print "$m\n";
$m = $i =~ /j/;      print "$m\n";
$m = $i =~ /j/i;     print "$m\n";
$m = $i =~ /\w/;     print "$m\n";
$m = $i =~ /\W/;     print "$m\n";

$m = $j =~ /j*/;     print "$m\n";
$m = $j =~ /j+/;     print "$m\n";
$m = $j =~ /j?/;     print "$m\n";
$m = $j =~ /j{2}/;   print "$m\n";
$m = $j =~ /j{2}/i;  print "$m\n";
$m = $j =~ /(Jj)+/;  print "$m\n";

$m = $k =~ /Jim|Boom/;          print "$m\n";
$m = $k =~ /(Boom){2}/;         print "$m\n";
$m = $k =~ /(Boom ){2}/;        print "$m\n";
$m = $k =~ /(Boom\W){2}/;       print "$m\n";
$m = $k =~ /\bBoom\b/;          print "$m\n";
$m = $k =~ /\bBoom.*the\b/;     print "$m\n";
$m = $k =~ /\Bgo\B/;            print "$m\n";
$m = $k =~ /\Bgh\B/;            print "$m\n";