note
Polyglot
Basically, you might consider something like this:
<code>
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;
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-644375">
<p>Blessings,
<p><i>~Polyglot~</i>
</div></div>
786192
786467