#!/usr/bin/perl
use strict;
use warnings;

my $msg = "One bright day in the middle of the night,\n";
$msg .= "two dead men got up to fight.\n";
$msg .= "Back to Back they faced each other,\n";
$msg .= "drew their swords and shot each other.\n";
$msg .= "A deaf police man heard this noise,\n";
$msg .= "came and killed those two dead boys.\n";
$msg .= "If you don't believe this lie is true,\n";
$msg .= "ask the blind man - he saw it too!\n";

$msg =~ tr/\n//d;
for my $sentence ( split /[.!?]/ , $msg ) {
    if ( $sentence =~ /^\s*([a-zA-Z0-9]+)\s+([a-zA-Z0-9]+)\s+/ ) {
        print "$1 $2\n";
    }
}
__END__
One bright
Back to
A deaf
If you