perl -MData::Dumper -e 'print Dumper {qw(a - b = c ~ d ^)}' # OUTPUT: $VAR1 = { 'a' => '-', 'b' => '=', 'c' => '~', 'd' => '^' };