Something like this?
use strict; use warnings; while(<DATA>) { $_ =~ s/(\D*)(\d*)(\D*)(\d*)/$3$2$4$1/g; print $_; } __DATA__ AAAAAAAAAA1111BBBBBB222222 BBBBBBBBBB2222CCCCCC333333 CCCCCCCCCC3333DDDDDD444444
outputs:
BBBBBB1111222222AAAAAAAAAA CCCCCC2222333333BBBBBBBBBB DDDDDD3333444444CCCCCCCCCC
In reply to Re: Seeking an Enlightened Path (Parsing, Translating, Translocating)
by olus
in thread Seeking an Enlightened Path (Parsing, Translating, Translocating)
by nanotasher
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |