in reply to Re: grep for numbersin thread grep for numbers
my $num = $1 if ($str =~ /ci=(\d+)&/); [download]
Because it's undefined behavior. It would be better to use:
my $num; $num = $1 if ($str =~ /ci=(\d+)&/); [download]