Help for this page

Select Code to Download

Select or download this
```
s/\t(?=\t)/\t0/g
```

Select or download this

$ perl -le 'my $x = "1\t2\t\t\t2\t\t5\t\t\t\t4"; print $x; $x =~ s/\t(
+?=\t)/\t0/g; print $x'
1       2                       2               5                     
+          4
1       2       0       0       2       0       5       0       0     
+  0       4