[SP-pm] Retorno de uma sub dentro da RE

[Eden Cardoso Cardim]

----- Mensagem Original -----
> O que eu fiquei curioso foi, existe alguma maneira de eu colocar uma
sub dentro da expressão, ao invés de usar [^\.]+, usar o retorno da
short()?
-----

my $short = short();
(my $domain = fqdn()) =~ s/^$short//;