Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"my $a = 'A_D1[1]';
...
"
str = '123 A_D1 XYZ A_D1[1] BLAH A_D1[1] BLAH'
str = '123 A_D1 XYZ -BLAH -BLAH'