Select Code to Download

print "type in something: ";
my $line = <STDIN>;
$line = chomp $line;

print "type in something: ";
my $line = <STDIN>;
chomp $line;

my @data = qw(foo bar baz);
@data = map { s/./X/ } @data;
print "@data\n";

my @data = qw(foo bar baz);
@data = map { s/./X/; $_} @data;
print "@data\n";

my $filename = 'input.txt';
open my $fh, '<', $filename || die $!;

open my $fh, '<', ($filename || die $!);

my $filename = 'input.txt';
open(my $fh, '<', $filename) or die $!;

my @names = qw(A B C);
foreach my $name (<@names>) {
    print "$name\n";
}

my(@names) = ('A', 'B', 'C');
use File::Glob ();
foreach my $name (glob(join($", @names))) {
    print "$name\n";
}

my $x = 42;
if ($x = /x/) {
    print "ok\n";
}

my $x = 42;
print is_foo_or();
...
sub foo {
    return 0;
}