#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11147618 use warnings; local $_ = join '', ; 1 while s[^(?:.*\n)((?:.*\n){2}//\n)((?:.*\n)*)\K.*\n\1][]m; print; __DATA__ nick AAAAAAAAAA BBBBBBBBBB // george EGRGERHTETEHTHR VFRTTHTRRHTE // andreas AAAAAAAAAA BBBBBBBBBB // thomas EWTRYTUYJTHT CEWWEQRWT$G // peter EGRGERHTETEHTHR VFRTTHTRRHTE //