in reply to Re^3: Perl split on regex matchin thread Perl split on regex match
while (<DATA>) { print if (split /\./) < 3; } [download]