open FILE, "<input.txt" ;
$file=<FILE> ;
@paras=split /\n\n/, $file ;
foreach (@paras) {
    @LINE=split /:/, @paras ;
    if ($LINE[1] = $KWD) {
       print "@paras" ;
    }
}