perl -le ' "abcd" =~ /.{2,}(?{print $&})(*FAIL)/ '