$ perl -Mstrict -Mwarnings -E '
my $str = q{!one ! two!three and four! five};
my @arr =
   reverse
   map { scalar reverse }
   split m{\s*!\s*}, scalar reverse $str;
say qq{>$_<} for @arr;'
>one<
>two<
>three and four<
>five<
$