$line =~ /.*[//; gobble all up to the last [
$line =~ /].*//;  get rid of the rest after ]