while ($newline = ){ ##

##

use strict;
use warnings;

##

##

while (my $newline = ){

##

##

   if ($newline = /^>/) {

##

##

   if ($newline =~ /^>/) {

##

##

  $stuff = $newline;
  &play_with($stuff);