1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 my $number = 1;$number =~/(\w*)/;print "$1"; 7 $number++;print "$number\n";
