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