#!/usr/bin/perl -w
print ("Enter the word to search >> ");
chomp ($word = <STDIN>);
$/=undef;
$_=<>;
my @arr = split /(<MS_.>)/;
shift @arr; # 1st element stuff before <MS_1>, so shift away
my %hash = @arr;
print map {($_, $hash{$_})} grep { $hash{$_} =~ $word } keys %hash;