#!/usr/bin/perl
use strict;
use warnings;

$" = '<was :>';

open PASSWD, "/etc/passwd"
  or die "Eh? ($!)";


while (<PASSWD>) {
my @passwds = split /:/;
print "@passwds";
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

$" = '<was :>';

open PASSWD, "/etc/passwd"
  or die "Eh? ($!)";

while (<PASSWD>) {
my @passwds = split /:/, <PASSWD>;
print "@passwds";
}