paramah/gist:1554697

## gistfile1.pl
#!/usr/bin/perl
use strict;
use warnings;

while (my $line = <STDIN>) {
	if($line =~ /^(\S+)\s*DEFINER\s{0,1}=\s{0,1}(\S+)(.*)/){
		print $1." ".$3."\n";
	}else{
		print $line;
	}
}
	#!/usr/bin/perl
	use strict;
	use warnings;

	while (my $line = <STDIN>) {
	if($line =~ /^(\S+)\sDEFINER\s{0,1}=\s{0,1}(\S+)(.)/){
	print $1." ".$3."\n";
	}else{
	print $line;
	}
	}