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