Select Code to Download

my @sorton;
my @lines= grep {
    if(  m/^(.+?)\((\d+)\)\s-\s\[(.+?)\].+?"(.*?)"\.$/  ) {
...
foreach(  @lines[@idx]  ) {
    print $_;
}