---use of uninitialized value in pattern match (m//)

##</code><code>##

#!/usr/bin/perl -w

use strict;

#get the user input first
print "type a string: ";
while(<>){
chomp();

if(/Wilma.*Fred|Fred.*Wilma/){
print "$_\n";
}
else{
print "\n\nyour line was skipped because it did not mention Fred and Wilma\n\n";
}
}