perl -nle "print qq{$1 => $2} while /(\S+)=(\S+)/g" data.txt #### name => abc dep => HR type => permanent age => 35 name => xyz dep => Sales type => contract age => 31