>[EMAIL PROTECTED] wrote: > >>Hi All, >> >>The code below does what I want to do, but it takes 3 lines and a temporary >>array (yuck). I can't come up with a one line regex substitution. Anyone >>got one? >> >>my $tmp = reverse split //, $_; >>$tmp =~ s/-//; >>$_ = reverse split //, $tmp; > >can you post a sample string which you want to substitute..
sure. Example record: 00000-00000-00000-EXAMPLE-000000-621 Will become: 00000-00000-00000-EXAMPLE-000000621 - Peter ****** CONFIDENTIALITY NOTICE ****** NOTICE: This e-mail message and all attachments transmitted with it may contain legally privileged and confidential information intended solely for the use of the addressee. If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message from your system. Thank you.. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
