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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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