use strict;

my @testStrs = ("all this<form>", "meh!<form>");

for my $str (@testStrs) {
    my $contents = $str;

    $contents =~ s/^[^<form]*(?=<form)//smg;

    print qq(After: "$contents" Before: "$str"\n);
}