#!/usr/local/bin/perl

$texto = "asdfasfsadfas####asdfasfas!!!!Programadores####Perl!!!!fajflsdafs";

@result0 = split(/\#\#\#\#/,$texto);	### tirando os caracteres #
foreach (@result0) {
    $texto1 .= $_;			### montando a string de novo
}

@result = split(/\!\!\!\!/,$texto1);	### tirando os caracteres !

print @result;				### agora vc tem uma lista