- or download this
ABD - some text
ACDB- some more text
WD - more text
- which spills onto the next line
SD - another line
- or download this
$myHash{'ABD'} = "some text"
$myHash{'ACDB'} = "some more text"
etc.
- or download this
/^([A-Z]{2,4})(\s{0,2})\-\s((.*)\n)*/g
- or download this
#!/usr/bin/perl
use strict;
...
print "Badly formatted line!\n";
} # end-else
} # end-foreach