use Bio::SeqIO;
my $seqio_obj = Bio::SeqIO->new(-file => "sequence.fasta", -format => "fasta" );

while (my $seq_obj = $seqio_obj->next_seq){
  print "Sequence id: ".$seq_obj->display_id."\n";
  print "Sequence: "$seq_obj->seq."\n";
}

##</code><code>##

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

##</code><code>##

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