Select Code to Download

$msg .= "cannot call $q\n";

$msg .= "cannot call @{[eval {&$q}, $@ =~ /^[^&]+(\S+)/]}\n";

hello from ABC(hhhhhh)
cannot call &main::def

@{[eval {&$q}, $@ =~ /^[^&]+(\S+)/]}