#!/usr/bin/perl -w
use strict;
use List::MoreUtils qw(any);

my @typedefs = qw(do re me fa so la ti do);
while ( my $line = <DATA> ) {
    if ( any { $line =~ /$_/ } @typedefs ) {
        # perform various actions here if line match
        print $line;
    }
}

exit 0;

__END__
do
me
a
favour
will
you