Select Code to Download

$ perl -wE 'my ($x, $y) = "AB" =~ /(.)(.)/; say "$x $y"'
A B

$ perl -wE 'my ($x, $y) = "AB" =~ /(.)(.)./; say "$x $y"'
Use of uninitialized value $x in concatenation (.) or string at -e lin
+e 1.
Use of uninitialized value $y in concatenation (.) or string at -e lin
+e 1.

#!/usr/bin/env perl -l

...
dt_pp50,0,0,2,0.000,0.000,0,0.000
er_tk02,0,2,3,0.002,0.004,0,0.001
ef_yb41,0,1,5,0.000,0.000,0,0.000

dt_pp50,0,0,2,0.000,0.000,0,0.000,200.11
ef_yb41,0,1,5,0.000,0.000,0,0.000,200.05
er_tk02,0,2,3,0.002,0.004,0,0.001,305.47