#!/usr/bin/perl

open( FH,"input" ) || die "can't open input file!";
@f = <FH>;
close( FH );

print "---\n";
print "lines matching AE:\n";
foreach( @f ) {
    if ( /AE/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A.E:\n";
foreach( @f ) {
    if ( /A.E/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A*E:\n";
foreach( @f ) {
    if ( /A*E/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching AE*:\n";
foreach( @f ) {
    if ( /AE*/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A.*E:\n";
foreach( @f ) {
    if ( /A.*E/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A*.E:\n";
foreach( @f ) {
    if ( /A*.E/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A.E*:\n";
foreach( @f ) {
    if ( /A.E*/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A*E.:\n";
foreach( @f ) {
    if ( /A*E./ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A+E:\n";
foreach( @f ) {
    if ( /A+E/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching AE+:\n";
foreach( @f ) {
    if ( /AE+/ ) { print "$_" }
}
print "---\n";

print "---\n";
print "lines matching A.+E:\n";
foreach( @f ) {
    if ( /A.+E/ ) { print "$_" }
}
print "---\n";
