while (my $tokenCar=$parserCar->get_tag("input")){

if ($tokenCar->[1]{name}=~/stradtext/i && $check==1) {
my $addtext = ($tokenCar->[1]{value});
...