get $text;
$how = (softly, mornfully, sorrowfully, mystically);
if $text ne "" then sighit else nomsgsigh;
##sighit:
$how = (softly, mornfully, sorrowfully, mystically);
say 'sigh',"[$actor] $how sighs ... $text ";
##nomsgsigh:
say 'sigh',"[$actor] $how sighs ... ";