($default_title) = $default_title =~ /(.{0,50})/s; $default_title =~ s/(?<=.{50}).*//s; #### substr($default_title, 50, length($default_title), '');