#!/usr/bin/perl
my $file = shift; my $content = `cat $file`; $content =~ s/<\?php(.*?)\?>//gs; $content =~ s/<.*?>//gs; print $content;