Select Code to Download

#!/usr/bin/perl
$line="One two three four five";
...
 print "4: $4\n";  print "5: $5\n";
}#if

[me]$>perl -w regexp-test2.pl
1: One
...
3: three
4: four
5: five

#!/usr/bin/perl

...
 print "5: $5\n";
}#if

[me]$>perl -w regexp-test3.pl
1: ONE
...
4: 
Use of uninitialized value $5 in concatenation (.) or string at regexp
+-test2.pl line 15.
5: