use IO::Scalar;
my $data = <<EOF;
AAAAAAAAAAAAAAA
AAAAAAAGGAAACCA
EOF
my $SH = new IO::Scalar \$data;
my $in  = Bio::AlignIO->new(-fh => $SH, -format => 'fasta');