while (my $line = <MOTIFS>) {
    chomp $line;
    ...
}