=head1 NAME

attrs - do

=head1 SYNOPSIS



=head1 DESCRIPTION


=cut

#!/usr/bin/perl -w
use strict;

sub fooXX {}

$a = \$"->asd(\$");                # syntaxically correct
$opt_s!asd!bsd!
$opt::s!asd!bsd!
$opt{s}asd}bsd}
(s => ...)=bsd=

my $v;
my ($v1, $v2);
my ($v11, $v22,
    $v33);

my 				# asdf
 (				# and
  $var1, $var3,		# asd
    $var4, $var3,
    $var2);

sub#xxx
barX#xxx 41
($$):lvalue # asdf
		lvalue# asdf
{}

sub#xxx
barXpre#xxx 41
($$):lvalue # asdf
		lvalue# asdf
;{}

sub
fooX ($$)			# 
 {}

sub
foo2X ($$) # asdf
  {
    
  }

sub foo :lvalue('()") aaa  # asdf
		lvalue : b(x)# asdf
xx {}

BEGIN {
  my $x;
  my $s = sub:lvalue{$x};
  print $s;
}

sub#xxx
  bar#xxx
  ($$):lvalue # asdf
  lvalue# asdf
  ;

sub 
  bar1($$):lvalue # asdf
  lvalue# asdf
  ;

sub#xxx
  bar#xxx
  ($$):lvalue # asdf
  lvalue# asdf
  {}

sub
bar1($$):lvalue # asdf
		lvalue# asdf
{}

package foo;

sub xxxx {}

package;
sub pre ($$) :lvalue ;
sub xxx ($$) :lvalue {}


package bar;

sub foo :lvalue('()") aaa  # asdf
		lvalue b# asdf
xx {}


sub 
foo1 ($$) # asdf
  {
    
  }

sub
foo2 ($$) # asdf
  {
    
  }

sub
  foo3
  ($$) # asdf
  {
    
  }

sub				# This is very much split
				# between lines...
 foo4 ($$) # asdf
  {
    
  }

$x = { foo => sub : lvalue () {
	 cc
       },
     };

print <<EOP;
some
  text
 here
EOP

s/ foo []-[]
  //x;

sub foo {}

m/    baz\\(?# foo)bar\\\\#dfd
  x
  /x;

%x = ( foo    =>1,
       barrrr =>2,
       seen   => 5)

print <<EOS;
 This is a string
 This is smoething else
EOS

$v =~ m/ first
	 next
	 last
       /x;