use strict;
use warnings;

open(FH,"data");

foreach ( <FH>){
if ( $_ =~ m/^https.*[^\/]\n$/ )
{     print $_;   }
}