#! /usr/bin/perl

use strict;
use warnings;

my $str = 'It was an intelligent stori';

for my $word (split / /, $str) {
    my $nr =()= $word =~ /(i)/gi;
    if ($nr > 0) {
        print "$word has $nr $1\n";
    }
}