my $s = "-----%s----%a----%d--%s-%d---";

print $s =~ tr/%//, "\n";   
 
print "$_\n" for ( $s =~ /%([ads])/g );

OUTPUT :
5
s
a
d
s
d