in reply to Re^2: match digit, followed by hyphen, followed again by digit - then add whitespaces and replace in file
in thread match digit, followed by hyphen, followed again by digit - then add whitespaces and replace in file

> need to use printf

Why do you need it?

Also, don't open the output file in each iteration of the loop. Just open it once before the loop starts.

Moreover, $_ and "$_" makes no difference in this case. Drop the useless quotes.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]
  • Comment on Re^3: match digit, followed by hyphen, followed again by digit - then add whitespaces and replace in file
  • Select or Download Code

In Section Seekers of Perl Wisdom