#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;

my $str = "vs or Vs or vs. or VS. or etc avs and metch";
say $str =~ s/\b(vs|etc)\b\.?/\L$1./gir;
# => vs. or vs. or vs. or vs. or etc. avs and metch