@Y = grep { $_ =~ /^magic/ } (<R>);