@X_delimited_strings = qw(fooXbar bishXbash);
for (@X_delimited_strings)
{
    @_ = split /X/;
    $hash{$_[0]} = $_[1];
}