Regular Expression Perl

# The syntax used to perform a pattern match on a string is $string =~ /regular expression/expression modifier (optional)   
    
    #!/usr/local/bin/perl -w    
        
    while ()     
    {   
       print if ($_ =~ /the/);  
    }