Method 1:
Method 2:
for ('l','s','h','c','g')
{
print;
print "\n";
}
Method 3:
Method 4:
$_="hello";
$_=~s/he/she/g;
print $_;
Method 5:
$_="he l lo";
for (split)
{
print;
print "\n";
}
Method 6:
$_='perlbot';
print if /p/;
Method 7:
foreach ('l','s','h','c','g')
{
print;
print "\n";
}
Method 8:
$_ = "prlbot";
print /perl/ ?'perlbot':'normalbot',"\n";
Method 9:
$_="perl";
$_=~tr/p/P/;
print $_;
Method 10:
@a=('l','s','h','c','g');
print grep $_,@a;
Method 11:
@a=('l','s','h','c','g');
print map $_,@a;
Method 12:
%hash=(1,2,7,4,9,6);
while (each %hash) {
print "$_=$hash{$_}\n";
}
Method 13:
opendir($_,"/tmp") || die "Can't open dir $!";
@array =readdir($_);
closedir $_;
print @array;
Method 14: