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