Re^2: regex pattern match problem

[Polyglot]

Basically, you might consider something like this:

our $line='Your chemical info here...';

#BASICALLY, MAKE THE SUB DO WHATEVER YOU NEED
#THEN PUT THE SUB IN THE REPLACEMENT SIDE OF
#THE REGEX.

my $ProcessMultiLine = sub { #START OF SUB
 my $templine = $line;
 my $temppart = '';
 my $returnval = '';

while ($templine =~s/( YourMatchingRegexHere )//) {
   $temppart = $1;
   $temppart =~ s/ YourSubsMatch / YourSubsReplace /;
   $returnval .= $temppart;
} #END WHILE   

return $returnval;
} #END SUB

$line =~ s/ MatchTheString / $ProcessMultiLine -> () /e;