Can anyone helps me with Perl programming about Regx?

In txt file it has

Entry: This entry# 2 has been DELETED

I wrote a string match:

$string =~ m/^This\s.*/ig;

Basicially, I have an if statement that compares that $string with another string...

So if ($another string ne $string) {print something out}
else { don't print}

My match $string seems not working at all... my $another string's string has different text, it keeps saying "Don't print"