my $wanted = $page =~ /push_delayed_image\(([^,]+)/;

print Dumper $wanted;