use strict; 
use warnings; 
use 5.010; 
 
my $string = 'hello world'; 
print $string, "\n"; 
 
--output:-- 
hello world

use strict; 
use warnings; 
 
open (FH,"<file") or die "Can't Open $!"; 
my $count; 
while(<FH>) 
{ 
    my @array=split; 
    foreach(@array) 
    { 
        if(/a|e|i|o|u/) 
        { 
            $count++; 
        } 
    } 
}

use strict; 
use warnings; 
 
open FH, "file.txt"  or die "Can't Open the file : $!"; 
my $count; 
while (<FH>) 
{ 
        my @array=split; 
        unless(/^\s*$/){ 
                for (@array) 
                { 
                       $count++ if(/^(\w{3})\w*\1$/); 
                } 
        } 
} 
                print "No.Of.Words(Start and End with Same Three Characters)=$count\n";

 
 
$count++ if(/^(\w{3})\w*\1$/);   
  
push @array1, $_;  
  

if(/^(\w{3})\w*\1$/) 
            { 
                $count++; 
                print "Line no $. has $_\n" ; 
            }

  
use strict; 
use warnings; 
 
my $count; 
while(<>) 
{ 
        if(/(a)+/ and /(e)+/ and /(i)/ and /(o)+/ and /(u)+/) 
        { 
            $count++; 
        } 
} 
 
print "The total count is:$count\n";

Print "A few Fibonacci numbers:" 
X = 1 
Print X 
Y = 1 
Print Y 
10 If Y >= 20 
     Goto 100 
    EndIf 
Temp = X + Y 
X = Y 
Y = Temp 
Print Y 
Goto 10 
100 End