The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
SMUELLER / Filter-Simple-0.94 / demo / demo_regex_macro.pl 
use Demo_REM;

=head1 A demo

	print if /^(%d|![a])/;

=cut

while (<>) {
	print if /^(%d|![a])/;
}

__DATA__

	print if /^(%d|![a])/;