Select Code to Download

$string = "This is barney rubble and his friends joe rockhead and fred
+ flintstone";
$string =~ /(?=.*fred (\w+))?(?=.*barney (\w+))?(?=.*joe (\w+))?/;
...
print "$company\n"

# "flintstone_rubble_rockhead_inc"

$string = "This is bLarney rubble and his friends joe rockhead and fre
+d flintstone";
$string =~ /(?=.*fred (\w+))?(?=.*barney (\w+))?(?=.*joe (\w+))?/;
...
print "$company\n"

# "flintstone__rockhead_inc"