Help for this page

Select Code to Download


  1. or download this
    use Coy;
    die;
    
  2. or download this
    use Coy;
    eval{die};
    $@ =~ /-----\s*(.*)\s*(.*)\s*(.*)\s*-----\s*(.*)\.\.\./;
    print "$1\n$2\n$3\n  - $4\n";