tryperl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";

tryperl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";

tryperl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!\n";
print "Once you finish editing, click <b>SAVE</b> to save changes and <b>Run</b> to run the program with the output displayed below.\n";

tryperl

#Created by tryperl.com
use strict;
use warnings;

 
says "Oh Noes!";

tryperl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";

tryperl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!\n";
print "Once you are done editing, click SAVE to save changes :D \n \n";

print "TEST"

tryperl

#Created by tryperl.com

## This is a demo of a perl script from a stackoverflow answer here : http://stackoverflow.com/a/14818869/368070
# I thought of that answer as a benchmark when designing some of this app :)

#Paste this in the STDIN tab.

#precedence = 2
#new york
#new jersey

tryperl

#Created by tryperl.com

#If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
#Find the sum of all the multiples of 3 or 5 below 1000.

# http://projecteuler.net/problem=1
use strict;
use warnings;

my $i = 1000;

tryperl

#Created by tryperl.com
use 5.010;

use strict;
use warnings;

sub AUTOLOAD {
    my $name = $AUTOLOAD;
    say "From AUTOLOAD: $name";
}

tryperl

use strict;
use warnings;

my @words = qw(good bad ugly great awesome lovely dumb);

foreach my $word (@words) {
    printf "This is %s!\n", $word
}