Hola,
tras el anuncio reciente de que la versión 5.28 de Perl5 eliminaría el operador smartmatch ~~ (ver aquí) me he encontrado un programa viejito dónde se usaba, a pesar de que ha sido experimental desde hace mucho tiempo. Con ayuda de
$ perldoc perlop
cuelgo aquí un ejemplo de cómo sustituir este operador por código estándar:
Artículo