my $output='$std | dot | $r1 |$data| dot | $r2 '."\n";

while(<>) {
	my $std = $_;
	my $std_dot = $.;

	my $data = <DATA>;
	my $data_dot = $.++;

	chomp $std;
	chomp $data;
	my ($r1, $r2);

	if(
		($r1 = $data =~ /a/ .. $data =~ /e/) &&
		($r2 = $std =~ /a/ .. $std =~ /e/)
	) {
		$output.=sprintf "%4s |%4s |%4s |%4s |%4s |%4s \n",
			$std, $std_dot, $r1, $data, $data_dot, $r2;
	} else {
		last;
	}
}

print $output;
__DATA__
a
b
c
d
e