Select Code to Download

use Bio::SeqIO;
my $seqio_obj = Bio::SeqIO->new(-file => "sequence.fasta", -format => 
+"fasta" );
...
  print "Sequence id: ".$seq_obj->display_id."\n";
  print "Sequence: "$seq_obj->seq."\n";
}

perl -e '$s="get_rid_of_some_string";print "remaining string: $s\n" if
+ $s=~s/^get_rid_//;'

perl -e '$s="get_rid_of_some_string";print "remaining string: $s\n" if
+ $s=~s/^.*rid_//;'