Help for this page
perl -e '%h = map{split /X/} q{fooXbar}, q{bishXbash}; print qq{$_ -> $h{$_}\n} for jeys %h;'
bish -> bash foo -> bar