Re^2: grep for numbers

[leonidlm]

Why not to use this one?

my $num = $1 if ($str =~ /ci=(\d+)&/);

[roboticus]

leonidlm:

Because it's undefined behavior. It would be better to use:

my $num;
$num = $1 if ($str =~ /ci=(\d+)&/);

...roboticus