Select Code to Download

#!/usr/bin/perl
use strict;
...

print $cgi->header('text/plain');
print YAPE::Regex::Explain->new(qr/$regex/)->explain;