Text here
Text text here
text here
text here text here
####
start: "", middle: "Text here", end: " "
start: " ", middle: "Text text here", end: ""
start: "", middle: "text here", end: ""
start: "", middle: "text here text here", end: ""
##
##
my $segment = $_;
my $start ="";
my $end ="";
my $middle ="";
while ($segment =~ /^(<[a|b|c] id=\".*?\"\/>)/ || $segment =~ /^(\s+)/){
$start .= $1;
$segment =~ s/^\Q$1\E//;
}
while ($segment =~ /(\s+)$/ || $segment =~ /(<[a|b|c] id=\".*?\"\/>)$/){
$end = "$1$end";
$segment =~ s/\Q$1\E$//;
}
while ($segment =~ /^().*?(<\/d>)/){
----
}
print "start: \"$start\", middle: \"$middle\", end: \"$end\"\n";