Matchin 2 strings

[K.Moeng]

hello.

Here is my problem. i am unable to return the 2 strings as true. it false back 
to the else statement.

use lib '/usr/lib/perl5';
use POSIX qw(strftime);

######################## GET ARGS ##########################
$source = $ARGV[0];
$msg = $ARGV[1];

$msg =~ s/\"/' /ig;#$msg =~ s/"/' /ig;  #$msg =~ s/\"/' /ig;

$found = 0;

if ($msg =~ /roam act/i)
{
 $name = 'ACTivated';
 $found = 1;
}

elsif ($msg =~ /roam dact/i)

{
 $name = 'DeACTivated';
 $found = 1;
 }

 if ($found == 1)

print "Your Prepaid Roaming service will be $name within the next 2 hours.Thank 
you. \n";
}

else
{
 print "Sorry. Your request has not been sent for Roaming. Please send 'ROAM 
ACT' TO ACTIVATE or 'ROAM DACT' TO DEACTIVATE.\n";
}

exit;