$str =~ m{test/comp/test1/test2}