#!/usr/bin/perl my $s = "info info . info <div id=\"inner\"> \n blah blah blah"; $s =~ s/.*<div\ id="inner">//si; print $s
