#!/usr/bin/perl -wforeach $patt (@ARGV) { # Check for white space. if ($patt =~ /\s/) { print "\tFound white space in \"$patt\".\n"; }}