#!/usr/bin/perl -w foreach $patt (@ARGV) { # Check for digit. if ($patt =~ /\d/) { print "\tFound a digit in \"$patt\".\n"; } }