Help for this page
foreach my $filename ( @files ) { open ( FILE, "<", $filename ) ... } $dbh->do( $batch ) if ( $batch =~ m/^\s*go\s*$/msi ); }