username tommelly opensesame some optional junk

##</code><code>##

open (PSSWD, "<passwordfile") or die "could not able to open the file" ;
while ($line=<PSSWD>) {
  chomp($line);
  ($uname,$password) = $line = ~ m/username\s+(\S+)\s+(\S+)\s*\S*/;
  print "username: $uname, password: $password\n";
}

##</code><code>##

open (PSSWD, "<passwordfile") or die "could not able to open the file" ;
while ($line=<PSSWD>) {
  chomp($line);
  if($line = ~ m/username\s+(\S+)\s+(\S+)\s*\S*/){
    print "username: $1, password: $2\n";
  }
  else{
    print "$line did not match regex\n";
  }
}

##</code><code>##

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20