#/usr/local/bin/perl -n -l

($value, $key) = /(\w+)\s*=>\s*'(.*?)'/;
print "$key => '$value',";