which will print 2001020713use strict; use warnings; my $data = 'abcd 2001020713'; my @nums = $data =~ /\d+/g; print "$nums[0]\n";
which will print 1use strict; use warnings; my $data = 'abcd 2001020713'; my $number = $data =~ /\d+/g; print "$number\n";
In reply to Regex question by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |