use strict;
use warnings;
my $command = do{ local $/ = undef; <DATA> };

$command =~ m/(!\w+\s?.+?)(?=!\w)/simg;

if( $command eq "" ) {
    print "Add a command, man!\n";
}
else {
    if( $command =~ /^\!Book/ ) {
        print "Found a Book\n\n";
    }
    elsif ( $command =~ /^\!Number/ ) {
        print "Time to log a phone number\n\n";
    }
    print  "Command has the following in it : $command and was started at \n";
    printf "Time %s\n", scalar(localtime);
    print  "Command 1 is $1\n";
    print  "And Command 2 is $2\n\n";
    print  "Command 3 is $3\n\n";
    print  "\n";
}
__DATA__