Help for this page
!=~ should be !~ at ... Use of uninitialized value $_ in pattern match (m//) at ... Argument $text isn't numeric in numeric ne (!=) at ...