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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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