my $req;

while ($req = ...

##</code><code>##

while (my $req = ...

##</code><code>##

chomp;

##</code><code>##

chomp $req;

##</code><code>##

eval {
    # Code which might generate an error
}
if ($@) {
    # Handles any errors here
    # $@ holds the error message
}