Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. A program that illustrates the use of the matching operator
#!/usr/local/bin/perl 
print ("Ask me a question politely:\n"); 
$question = ; 
if ($question =~ /please/) { 
   print ("Thank you for being polite!\n"); 
} else { 
   print ("That was not very polite!\n"); 
}