while( $line =~ /(\w+)=("[^"]+"|\S+)/g ) { print "$1: $2\n"; }