Select Code to Download

#!/usr/bin/perl
use warnings;
...
            (?:|([^]]+))?
          \]
          !print("'$1' '$2' '$3'\n")!gsex;

'link' 'forum' ''
'mentors' 'pil_description' '|Partnerships in Learning'
Use of uninitialized value in concatenation (.) or string at test.pl l
+ine 13.