gistfile1.pl

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

open (my $in, '<', '/etc/passwd');

my %passwd;

while (<$in>) {
	if ( /^(\w+):([\w:\/]+)$/ ) {
		my $key = $1;
		my $val = $2;
		$val =~ s/:+/\ /g;
		$passwd{ $key } = $val;
	}
}

while ( my ($key, $val) = each(%passwd)){
	say "'$key' => '$val'";
}

while (<$in>) {
s/[\w/:]//g;
say unless /^\s+$/;
}