$temp = 'Data abcd is object Perl';
if($temp !~ /object$Perl/i){
    print qq/'temp contains object \n'/;
}
else{
    print qq/'temp doesn\'t contains ' object '\n/;
}