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

##</code><code>##

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

##</code><code>##

my @commands = $command =~ m/(!\w+\s?.+?)(?=!\w|\z)/simg;

##</code><code>##

foreach my $command (@commands) {
    ...
}