$str = "this here and that or those there and his or hers nor thee";
@words = split /\h*\b(and|nor|or)\b\h*/, $str;

##</code><code>##

$str = "fee=1 fie=2 foe=3 fum=4";
my %settings = $str =~ /\b(\w+)=(\S*)/g;

##</code><code>##

% perl -pe 's//IoException/ if ?import java\.io\.\KFile?'