I'm no perl programmer, so I just need this simple script to run:

```
perl -e 'open(FILE,"tmp.plot"); my $seqLength = 643292; my $count=1; while(my $ln = <FILE>){ if( $ln =~ m/^(\d+)\s+(\d+)/ ) { if($1 > $count) { for($i = $count; $i < $1
; $i++){ print "0\n" } }; print "$2\n"; $count=$1+1;   }  } for($i = $count; $i <= $seqLength; $i++){ print "0\n" }' > dnaplotter.plot

```

the error is: 
`Unmatched ) in regex; marked by <-- HERE in m/^(\d+)\s+(\d+) <-- HERE / at -e line 1.`

Anyone knows how to fix it?

Thank you in advance!

TP