I'm trying a pattern match involving a variable but this dang thing won't work. I have read (and tried) just about every suggestion on the net and would be very thankful for any help.

foreach $line (@file) {
    chomp($line);

    foreach $key (keys %hash) {
        $pattern = "s$key_val";
        if($line =~ /$pattern/) {
            print "$line\n";
            $line =~ s/$pattern/my_temp_var/;
        }
    }
}
[download]

The idea is that if the hash key is "Fish", I want to find all lines containing "sFish_val" before replacing this string with "my_temp_var". But instead of printing the lines containing the sub-string defined in $pattern, the code prints every single line containing the letter 's'. Please Help!!! Thanks, Timothy