gaurav.pl

my $a=4;
print foo(),"\n";
sub foo{my $a=$a;}


my @a=(10,5,1);
my @b=sort @a;
print "@b";


my $txt='I am learning Perl';
$txt=~/(w+)$/;
print $txt;


my $txt='I am learning Perl';
my($match)=$txt=~/\s(.*)\s/;
print $match,"\n";