Sophie: perl-Filter-Simple-0.880.0-3.mga4 noarch

perl-Filter-Simple-0.880.0-3.mga4.noarch.rpm

use Demo_REM;

=head1 A demo

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

=cut

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

__DATA__

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