ok(sub{$str =~ /abc/}, "string matches");