$text2 =~ s/(.*?) (.*?) (.*?) (.*)/$1 $2/ig;