my @strings=("/^\\\n.....................C", "/^\\\n............C........C", "/^\\\n.....................B", "Foobar"); /(\/\^\\\n.+C)/ && print "---\n\n$1\n---\n\n" foreach @strings; __END__ --- /^\ .....................C --- --- /^\ ............C........C ---