#! /usr/bin/perl 
use strict; 
use CGI ':standard'; 
$CGI::POST_MAX = 1000000; 
print "content-type: text/html\n\n"; 
##### 
my $mysubmit = param('mysubmit'); 
my $mytextarea = param('mytextarea'); 
##### 
if ($mysubmit) { 
	if ($mytextarea =~ m/^<object.+<\/object>/) { 
		#Commented line below will autoplay video 
		#$mytextarea =~ s/(<embed src=\"[^\"]+)/$1&autoplay=1/; 
		print qq($mytextarea); 
	} 
	else { 
		print qq(<p>Invalid embed code</p>); 
	} 
} 
##### 
print qq(<form action="script.pl" method="post"><textarea name="mytextarea">$mytextarea</textarea><input type="submit" name="mysubmit" value="Play Video" /></form>);