https://github.com/perl-entrance-org/workshop-2013-04/blob/master/practice.md#3-foodpl

practice_food.pl

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

my $data = q{
    papix : sushi
    moznion : soba
    boolfool : sushi
    macopy : sushi
};

my @str = split (/\n/, $data);
my $count;
for my $str (@str) {
    if ($str =~ / : /) {
        $count++;
    }
}
print "$count\n";