note Punitha <p>Hi [barryscott]</p> <p>This may also help you in addition to [j1n3l0]</p> <c> use strict; my @typedefs = qw(do re me fa so la ti do); while (my $line = <DATA>) { chomp($line); if(grep/$line/, @typedefs){ print "$line\n"; ## perform various actions here if line match } } __DATA__ do me a favour will you </c> <p>Punitha</p> 661292 661292