Now I just need a 'like' operator in Perl for regex matching

You could create a module with a like function in it, but it would act like a "prefix" operator:

like $line, "pattern"

As best I can tell, Perl's keyword API can only create prefix operators.

However, you could use Filter::Simple to "create" your like operator. (Though most Perl experts consider using source filtering to be a very BAD thing to do.)

package Like;
use Filter::Simple;
FILTER_ONLY code_no_comments => sub {
        s/\s+like\s+/ =~ /;
    };

1;
[download]

Caveat:

My example filter is probably too simple and will probably replace occurrences of like it should not.