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";