Since you want an exact match, you can call index instead, and not have to worry about regex metacharacters:

if ( index( $line, $cont) != -1) {
    print "We have a match\n";
}
else {
    print "No match\n";
}
[download]

After Compline,
Zaxo