#!perl -w
# parse /etc/passwd file with no new line symbols (one line file)
# by motzi (s7ick.org)

my $lol;
open fail, '<passwd.txt' or die($!);
while(<fail>)
{
 $lol .= $_;
}
close fail;
my @fuck = $lol =~ /([^:\s]+:[^:\s]+:[^:\s]+:[^:\s]+:[^:\/]+:[^:]+:[^:]+)\s/g;
foreach(@fuck)
{
 print "$_\n";
}