Select Code to Download

use strict;
use warnings;

my $command = '!book this is my test book !number 1222223 !book anothe
+r book"';
my @commands = split /(?=!)/, $command;