Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $line = qq{foo \n ACCESSION NUMBER: 0001144204-09-017358 bar};
...
[[foo
 ACCESSION NUMBER: 0001144204-09-017358 bar]]
'000114420409017358'