perl -T taint.pl
filtered string 'ABC1' is tainted at taint.pl line 18.
ABC1
ABC2
ABC3
ABC4
....