Update string comparision in perl module test