# Perl 5 @cmd = ('get','put','try','find','copy','fold','spindle','mutilate'); $cmd = join '|', map { quotemeta $_ } @cmd; $str =~ / (?:$cmd) \( .*? \) /;