Select Code to Download

#! /usr/bin/perl

$str = "aaaaa\nbbbbb\nccccc\naaaaa\nddddd\neeeee\n" ;
...
@a = $str =~ /(aaaaa.*?)/gm ;

print "$a[0]\n" ;

aaaaa
bbbbb
ccccc

aaaaa
ddddd
eeeee