use strict;

my $input  = "keyword1, keyword2; keyword3— keyword4 – keyword5";
my $output = "<keyword>" . join ("</keyword>, <keyword>", split /\s*(?:,|;|\&mdash;|&ndash;)\s*/, $input) . "</keyword>";

print $output;