my @matches = ($string =~ /!#(.*?)#!/g); 

##</code><code>##

"123!#45!#678#!90"

##</code><code>##

my @matches = ($string =~ /!#((?:[^#!]|#(?!!))*)#!/g );