#!/usr/local/bin/perl

 $sayi = 0;

  print ("Satırları Giriniz !:\n");

  $satir = <STDIN>;

  while ($satir ne "") {

          if ($satir =~ /\bBu\b/) {

             $sayi += 1;

        }

         $satir = <STDIN>;

 }

  print ("'Bu' kelimesi içeren satir adeti: $sayi\n");