Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl>perl -wMstrict -le
"my $id  =    '1QJ8:A|PDBID|CHAIN';
...
 print qq{matched '$&'} if $str =~ /$id/;
"
matched '1QJ8:A'