while($page =~m/class="lastUnit.*\n.*\s+.*\n.*\n.*\n.*\n/ig) { 
     print "sample Text\n"
}