Select Code to Download

1 2=3 4=5
1 2=3 and 4=5

% perl -e '$str = "1 2=3 4=5"; print "$str\n"; $str =~ s/(\w+[\w\s]*=\
+w+)(?:\s)*/$1\|/g; print "$str\n"; print "Should look like: 1 2=3|4=5
+|\n"'

1 2=3 4=5
1 2=3|4=5|
Should look like: 1 2=3|4=5|

perl -e '$str = "1 2=3 4=5"; print "$str\n"; $str =~ m/(\w+[\w\s]*=\w+
+)(?:\s)*/g; print "$_\n" foreach @$0;'
1 2=3 4=5

1 2=3
4=5

1 2 3 2 6=7
2=4
j=384923
34 43 j 3=6

perl -e '$str = "1 2 3 2 6=7  2=4 j=384923 34 43 j 3=6"; print "$_\n" 
+foreach ($str =~ m/(\w+[\w\s]*=\w+)/g);'

...
j=384923
34 43 j 3=6